home *** CD-ROM | disk | FTP | other *** search
/ Turnbull China Bikeride / Turnbull China Bikeride - Disc 2.iso / STUTTGART / FROMUTS / RISCBBS / !RiscBBS / BBS / Enquete < prev    next >
Text File  |  1991-11-15  |  1KB  |  27 lines
  1. {bg 0 cls more 0 abort 1}
  2. {attr 4 3}  -- Arcland User Enquete --  {attr 0 2}  {_time} / {_online}  {bg 4 cll}
  3. {attr 0 2 open <RiscBBS$Dir>.BBS.EnqAns}
  4. {fg 6}A.{fg 2} What is your age? {fg 3 read V1 3 write V1 age}
  5.  
  6. {fg 6}B.{fg 2} What is your occupation? {fg 3 read V1 50 write V1 occupation}
  7.  
  8. {fg 6}C.{fg 2} What do you use your computer for? {fg 3 read V1 50 write V1 compuse}
  9.  
  10. {fg 6}D.{fg 2} For how long have you been using computers? {fg 3 read V1 20 write V1 comptime}
  11.  
  12. {fg 6}E.{fg 2} Do you write programs yourself? (Y/n) {fg 3 yesno 1 V1}
  13. {if V1 else goto +F}
  14.    {fg 2}What kind of programs? {fg 3 read V1 50 write V1 p_kind}
  15.    {fg 2}In which language(s)? {fg 3 read V1 50 write V1 p_language}
  16. {label F}
  17. {fg 6}F.{fg 2} Are you sysop of a BBS? (y/N) {fg 3 yesno 0 V1}
  18. {if V1=0 else goto +end}
  19.    {fg 2}What's the name of your BBS? {fg 3 read V1 50 write V1 BBSname}
  20.    {fg 2}What's the number of your BBS? {fg 3 read V1 30 write V1 BBSnumber}
  21.  
  22. {label end fg 6}
  23. Thank you for answering the enquete!
  24. Enjoy your further stay in {fg 3}Arcland after Dark{fg 6}.
  25.  
  26. {show <RiscBBS$Dir>.BBS.AnyKey}
  27.